0 REM:ARCAID3:         E.G. 02-NOV-86
10 IFGL=5110THEN360
20 IFGL=5370THEN620
30 IFGL=5390THEN640
40 GOTO260
50 DR$=""
60 IFDV=8ANDDR=0THENDR$="A:"
70 IFDV=8ANDDR=1THENDR$="B:"
80 IFDV=9ANDDR=0THENDR$="C:"
90 IFDV=9ANDDR=1THENDR$="D:"
100 IFDV=10ANDDR=0THENDR$="E:"
110 IFDV=10ANDDR=1THENDR$="F:"
120 IFDV=11ANDDR=0THENDR$="G:"
130 IFDV=11ANDDR=1THENDR$="H:"
140 RETURN
150 END
260 REM: APPEND TO ARC FILE
270 PRINT"[147]     [193]PPEND TO AN EXISTIING [193][210][195] FILE [146]"
290 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
291 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO [205]AIN [205]ENU."
300 PRINT"       [193]NY OTHER KEY WILL CONTINUE."
310 GETA$:IFA$=""THEN310
311 IFA$<>" "THEN320
312 PRINT"[147] [201][206][211][197][210][212] [196][201][211][203] WITH [193][210][195] [193][201][196] IN DRIVE 8,0":POKE198,0
313 PRINT"           AND PRESS ANY KEY."
314 GETA$:IFA$=""THEN314
315 PRINT"[147]";SPC(15);"[204]OADING..."
316 PRINT"[144]LOAD"CHR$(34)"ARC AID ?.?"CHR$(34)",8";:GOTO670
320 IFA$<>"$"THEN390
330 PRINT"[147]     [211][200][201][198][212] PAUSES,  [210][213][206]/[211][212][207][208] ABORTS"
340 PRINT"DIR":PRINT"":GL=5110
350 GOTO670
360 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
370 GETA$:IFA$=""THEN370
380 GOTO260
390 PRINT"[147]     [193]PPEND TO AN EXISTING [193][210][195] FILE[146]"
400 INPUT"[193][210][195] FILE TO APPEND TO";F$:IFF$=""THENRUN
405 IFRIGHT$(F$,4)<>".ARC"THENF$=F$+".ARC"
430 PRINT"   [208][204][193][195][197] [196][201][211][203] [215][201][212][200] [158]"F$:PRINT"   [201][206][212][207] [196][210][201][214][197] 8,0"
440 IFA=9THEN540
442 IFA>0THEN455
450 INPUT"[198]ILENAME OR [158][210][197][212][213][210][206][146]";FI$(A):GOTO460
455 INPUT"[206]EXT [198]ILENAME OR [158][210][197][212][213][210][206][146]";FI$(A)
460 IFFI$(A)=""THEN540
470 PRINT"[156][207]N WHAT DRIVE CAN THIS":INPUT"FILE BE FOUND   8,0[157][157][157][157][157]";DV,DR
480 GOSUB50:FD$(A)=DR$:IFDR$=""THEN470
490 FORI=1TOLEN(FI$(A))
500 IFMID$(FI$(A),I,1)=" "THENTE$(A)=TE$(A)+"?":GOTO520
510 TE$(A)=TE$(A)+MID$(FI$(A),I,1)
520 NEXT
530 A=A+1:GOTO440
540 IFFI$(0)=""THENRUN
550 C$="ARC/A A:"+F$:EX$=""
560 FORI=0TOA-1
570 EX$=EX$+" "+FD$(I)+TE$(I)
580 NEXT
590 C$=C$+EX$
600 PRINT"[147]";C$:PRINT"":GL=5370
610 GOTO670
620 PRINT"[147]ARC/L A:"F$:PRINT"":GL=5390
630 GOTO670
640 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
650 GETA$:IFA$=""THEN650
660 RUN
670 POKE631,13:POKE632,71:POKE633,207:POKE635,13:POKE636,13:POKE198,5:END